home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rexxbgui / testbgui.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-05-14  |  2.1 KB  |  74 lines
  1. /* REXX test script for rexxbgui.library */
  2.  
  3. if ~show('l','rexxbgui.library') then do
  4.     if ~addlib('rexxbgui.library',0,-30) then do
  5.         exit(20)
  6.     end
  7.     else nop
  8. end
  9. else nop
  10.  
  11. call bguiopen() /* causes error 12 if it did not work */
  12. /* supply a second argument for a '0' return code instead of an ARexx
  13.    error */
  14.  
  15. signal on syntax /* important: bguiclose() MUST be called */
  16. signal on halt
  17. signal on break_c
  18.  
  19. esc='1B'x
  20. lf='0A'x
  21. grspace.narrow=-1
  22. grspace.normal=-2
  23. grspace.wide=-3
  24.  
  25. /* using ARexx feature: ,<newline> is translated to nothing */
  26. /* the || are essential - any added space will cause trouble */
  27. /* redefining the same ID makes previous buttons unaccessible */
  28. /* do not redefine winclose etc. */
  29. /* note the bold button: <return> is the shortcut key */
  30.  
  31. bla=bguihgroup(,
  32.     bguibutton('but1',esc's'esc'd3'||'_Change text')||,
  33.     bguibutton('but2',esc'i'||'Disable')||,
  34.     bguivgroup(,
  35.         bguibutton('but3','AAA')||,
  36.         bguibutton('but4',esc'u'||'_Enable'),
  37.     ,grspace.narrow)||,
  38.     bguibutton('but5','A_AA')||,
  39.     bguibutton('but6',esc'b'||esc'k'||'<RETURN> as'lf'shortcut_'||'0d'x),
  40. ,grspace.narrow)
  41. inf=bguiinfo('info','Info','Using BGUI from ARexx'lf'via',
  42. 'rexxbgui.library')
  43. b=bguibutton('butrq','Show _BGUI_RequestA')||bguibutton('quit','_Quit')
  44. g=bguivgroup(inf||bla||b,grspace.normal,grspace.normal)
  45. a=bguiwindow('BGUI from ARexx!',g,50,'-0',,arg(1))
  46. if bguiwinopen(a)=0 then bguierror(12)
  47. id=0
  48. do while bguiwinwaitevent(a,'ID')~=id.winclose
  49.     select
  50.         when id=id.winactive then nop
  51.         when id=id.wininactive then nop
  52.         when id=id.butrq then call bguireq('Button pressed!','*_OK',,a)
  53.         when id=id.but1 then call bguiset(obj.info,a,INFO_TextFormat,esc||'c%%% percent sign%s!')
  54.         when id=id.but2 then call bguiset(obj.but3,a,GA_Disabled,1)
  55.         when id=id.but4 then call bguiset(obj.but3,a,GA_Disabled,0)
  56.         when id=id.quit then leave
  57.         when id=id.winclose then nop
  58.         when id=id.winnomore then call bguiwait() /* to test bguiwinevent() */
  59.         otherwise
  60.     end
  61. end
  62. rc=0
  63.  
  64. syntax:
  65. if rc~=0 then say '+++ ['rc']' errortext(rc) 'at line' sigl
  66. call bguiclose()
  67. exit 0
  68.  
  69. break_c:
  70. halt:
  71. rc=0
  72. say '+++ Break at line' sigl
  73. signal syntax
  74.